Xbasic

A5.SAVE_USER_COLORS Function

Syntax

A5.Save_User_Colors(c name,p color_info)

Arguments

name: The name of the color scheme. Currently, Alpha Anywhere only supports one color scheme named "Default".
color_info: The dot variable that contains the user's custom color definitions.

Description

The A5.SAVE_USER_COLORS() method saves the custom color settings that are defined in the dot variable Color. Custom color setting are stored in the current database's .ADB file. Custom colors are defined using the View > Settings command. Currently, Alpha Anywhere only supports one color scheme named "Default".

Discussion

Example

The following script gets the custom color settings and stores them in a dot variable called colors. The script then goes on to change the definition of color1.

'Initialize Colors variable
dim colors.color[32] as P
for i = 1 to 32
    colors.color[i].NAME = ""
    colors.color[i].handle = 0
    colors.color[i].color.red = 0
    colors.color[i].color.green = 0
    colors.color[i].color.blue = 0
next
A5.LOAD_USER_colors("Default",colors)
'Change color 1 definition.
colors.color[1].NAME = "new red"
colors.color[1].color.red = 200
colors.color[1].color.green = 20
colors.color[1].color.blue = 20
'Save edited colors
A5.save_user_colors("Default",colors)